#!/usr/bin/perl
#
# Copyright 2014 Pierre Mavro <deimos@deimos.fr>
# Copyright 2014 Vivien Didelot <vivien@didelot.org>
#
# Licensed under the terms of the GNU GPL v3, or any later version.
#
# This script is meant to use with i3blocks. It parses the output of the "acpi"
# command (often provided by a package of the same name) to read the status of
# the battery, and eventually its remaining time (to full charge or discharge).
#
# The color will gradually change for a percentage below 85%, and the urgency
# (exit code 33) is set if there is less that 5% remaining.

use strict;
use warnings;
use utf8;

my $acpi;
my $status;
my $percent;
my $full_text;
my $short_text;

# read the first line of the "acpi" command output
open (ACPI, 'acpi -b |') or die "Can't exec acpi: $!\n";
$acpi = <ACPI>;
close(ACPI);

# fail on unexpected output
if ($acpi !~ /: (\w+), (\d+)%/) {
	die "$acpi\n";
}

$status = $1;
$percent = $2;
$full_text = "$percent%";

if ($status eq 'Discharging') {
    $full_text .= '';
} elsif ($status eq 'Charging') {
    $full_text = $full_text;
}

$short_text = $full_text;

if ($acpi =~ /(\d\d:\d\d):/) {
	$full_text .= " ($1)";
}

# print text


# consider color and urgent flag only on discharge
if ($status eq 'Discharging') {

    if ($percent < 5) {
	print '<span foreground="#729FCF">ï</span> ';
	print "$short_text\n";
	exit(33);
    } elsif ($percent < 20) {
	print '<span foreground="#729FCF">ï</span> ';
    } elsif ($percent < 50) {
	print '<span foreground="#729FCF">ï</span> ';
    } elsif ($percent < 60) {
	print '<span foreground="#729FCF">ï</span> ';
    } elsif ($percent < 85) {
	print '<span foreground="#729FCF">ï</span> ';
    } elsif ($percent > 86) {
	print '<span foreground="#729FCF">ï</span> ';
    }
    
}
else{
    print '<span foreground="#729FCF">ï¦</span> ';
}
print "$short_text\n";
exit(0);
